﻿Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Imports BusinessEntity
Public Class ClienteDA
    Dim con As New Conexion

    Public Function Registrar(ByVal Cliente As ClienteBE) As DataSet
        Dim conexion As SqlConnection
        conexion = con.conectar
        Dim daCliente As New SqlDataAdapter("usp_RegistrarCliente", conexion)
        daCliente.SelectCommand.CommandType = CommandType.StoredProcedure

        daCliente.SelectCommand.Parameters.Add(New SqlParameter("@dni", SqlDbType.Char, 8))
        daCliente.SelectCommand.Parameters("@dni").Direction = ParameterDirection.Input
        daCliente.SelectCommand.Parameters("@dni").Value = Cliente.dni

        daCliente.SelectCommand.Parameters.Add(New SqlParameter("@nombre_apellido", SqlDbType.VarChar, 80))
        daCliente.SelectCommand.Parameters("@nombre_apellido").Direction = ParameterDirection.Input
        daCliente.SelectCommand.Parameters("@nombre_apellido").Value = Cliente.nombre_apellido

        daCliente.SelectCommand.Parameters.Add(New SqlParameter("@direccion", SqlDbType.VarChar, 30))
        daCliente.SelectCommand.Parameters("@direccion").Direction = ParameterDirection.Input
        daCliente.SelectCommand.Parameters("@direccion").Value = Cliente.direccion

        daCliente.SelectCommand.Parameters.Add(New SqlParameter("@telefono", SqlDbType.VarChar, 30))
        daCliente.SelectCommand.Parameters("@telefono").Direction = ParameterDirection.Input
        daCliente.SelectCommand.Parameters("@telefono").Value = Cliente.telefono

        Dim dsCliente As New DataSet
        daCliente.Fill(dsCliente, "RegCliente")
        Return dsCliente

        'LIBERA RECURSOS
        dsCliente.Dispose()
        dsCliente.Dispose()
        conexion.Dispose()

    End Function

    Public Function Listar(ByVal Nombre As String) As DataSet
        Dim conexion As SqlConnection
        conexion = con.conectar
        Dim daCliente As New SqlDataAdapter("usp_ListarClientes", conexion)
        daCliente.SelectCommand.CommandType = CommandType.StoredProcedure

        daCliente.SelectCommand.Parameters.Add(New SqlParameter("@nombre_apellido", SqlDbType.VarChar, 80))
        daCliente.SelectCommand.Parameters("@nombre_apellido").Direction = ParameterDirection.Input
        daCliente.SelectCommand.Parameters("@nombre_apellido").Value = Nombre

        Dim dsCliente As New DataSet
        daCliente.Fill(dsCliente, "ListaCliente")
        Return dsCliente

        'LIBERA RECURSOS
        dsCliente.Dispose()
        dsCliente.Dispose()
        conexion.Dispose()

    End Function


End Class
